﻿Imports System.Windows.Forms

Class MainWindow
    Private Sub Window_Loaded_1(sender As Object, e As RoutedEventArgs)
        Navigate(LeftBrowser, "D:\")
        Navigate(RightBrowser, "D:\")
    End Sub

    Private Sub MenuItem_Click_1(sender As Object, e As RoutedEventArgs)
        Close()
    End Sub

    Public Sub Navigate(sender As System.Windows.Controls.WebBrowser, loc As String)
        sender.Navigate(loc)
        sender.Document.CurrentViewMode = 4
    End Sub

    Private Sub ComboBox_SelectionChanged_1(sender As Object, e As SelectionChangedEventArgs)
        Console.WriteLine(cboLeft.SelectedValue)
        Dim loc As ComboBoxItem
        loc = cboLeft.SelectedItem
        Navigate(LeftBrowser, (LeftBrowser.Document.FocusedItem.Path))

    End Sub

    Private Sub LeftBrowser_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs)
        Navigate(LeftBrowser, (LeftBrowser.Document.FocusedItem.Path))
    End Sub

    Private Sub LeftBrowser_Navigated(sender As Object, e As NavigationEventArgs) Handles LeftBrowser.Navigated
        Dim doc As HtmlDocument = s
    End Sub
End Class

